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he impossible done immediately — miracles take a little longer. This is truly 


the case with Oracle7 stored functions and procedures. Their potential 
seems limited only by the imagination of the developer. Especially useful are 
stored functions that can be embedded in SQL — they help to overcome some 


of the shortcomings of SQL. 


This article introduces a simple function (see 
Figure 1), and then demonstrates a variety of 
uses for it. The examples shown are based on 
the simple data model shown in Figure 2. 


Ordering the Un-Orderable 

Many applications use unique identifiers 
(UIDs) instead of natural keys. (UIDs — 
also known as surrogate keys — are the sub- 
ject of ongoing debate, but that debate is 
outside the scope of this article.) 


FUNCTION Decode Customer_Uid(p_Uid NUMBER) 
RETURN VARCHAR2 

IS 
return_value VARCHAR2(10) := ‘' UNKNOWN'; 


CURSOR Get_Short_Name IS 
SELECT short_name 
FROM customers 
WHERE customer_uid = p_Uid; 


BEGIN 
OPEN Get_Short_Name; 
FETCH Get_Short_Name 
INTO return_value; 
CLOSE Get_Short_nmae; 


RETURN return_value; 


END; 





Figure 1 (Top): A simple PL/SQL stored function. 
Figure 2 (Bottom): The example data model. 


A disadvantage of using UIDs is that a for- 
eign key lookup is needed to order data by 
the natural key. If a query can join the 
base table with the foreign key table, this is 
not a problem. However, Oracle Forms 
does not allow a join to be added to a 
block’s base table query, and using a view 
is not always an acceptable alternative. 


The query constructed by Oracle Forms for a 
block based on the ORDERS table in Figure 2 


would be: 


SELECT rowid, order_uid, customer_uid, 
salesperson _uid, order_date 
FROM orders 


What we would like to append to this query, 
to display the data ordered by a customer, is: 


ORDER BYSELECT short_name 
FROM customers 
WHERE customer_uid = orders. - 
Ccustomer_uid 


This isn't legal of course, and SQL 
responds with “Error at line 3 ORA- 
00936: missing expression”. Examining the 
function however, it’s apparent that the 
sub-query above is exactly what it is doing. 
Therefore, we embed the function in the 


ORDER BY clause as follows: 


ORDER BY decode _customer_uid(customer_uid) 


This is done in the block property sheet, as 


shown in Figure 3. 
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Figure 3: The Oracle Forms block property sheet. 


The function returns the customer short name for each row 
using the customer_uid of that row as its argument. SQL 
sorts on this value exactly as if it were a base table column. 
Note that if a match is not found, the function returns 
“UNKNOWN”. The leading space will cause such items to 
be returned at the head of the list. 


If we want to order by salesperson instead of (or as well as) 
customer, we simply create another (similar) function based 
on the Employees table (see Figure 4). 


FUNCTION Decode Employee Uid(p _Uid NUMBER) 
RETURN VARCHAR2 
IS 
return_value VARCHAR2(10) := ‘ UNKNOWN'; 
CURSOR Get_Last_Name IS 
SELECT last_name 


FROM employees 
WHERE employee _uid = p _Uid; 


BEGIN 


OPEN 
FETCH 
INTO 
CLOSE 


Get_Last_Name; 
Get_Last_Name 
return_value; 
Get_Last_Name; 
RETURN return_value; 


END; 


Figure 4: A function based on the Employees table. 


We can now use this function in our ORDER BY clause: 


ORDER BY decode employee _uid(salesperson_uid) 


Or 


ORDER BY decode _customer_uid(customer_uid), 
decode employee _uid(salesperson_uid) 


Pre-Query Trigger 

A second use of our function in Oracle Forms is in a pre- 
query trigger. The problem is similar in that the basic query 
is fixed, and we cannot introduce a join to restrict our query. 


However, we can use a sub-query to achieve this. (Note: For 
clarity, the quotes that would usually be found in the triggers 
have been omitted in the following examples.) 


To include a lookup item in a query in a Designer/2000-generat- 
ed form, we typically see code such as this in a pre-query trigger: 


AND customer_uid IN (SELECT customer_uid 
FROM customers 
WHERE name LIKE :orders.dsp_name) 


This is not very efficient code, because it forces a full table 
scan of the Customers table. To improve performance it can 


be replaced with: 


AND EXISTS (SELECT 1 
FROM customers 
WHERE name LIKE :orders.dsp_name 
AND customer_uid = orders.customer_uid) 


That’s much better. And at least it uses the index we took so 
much trouble creating. Or does it? If we want to make the query 
case-insensitive (a common requirement), we must change it to: 


AND EXISTS (SELECT 1 
FROM customers 
WHERE UPPER(name) LIKE UPPER(:orders.dsp_name) 
AND customer_uid = orders.customer_uid) 


and we are back to a full table scan. To overcome this, we can 
use our function: 


AND UPPER(Decode_ Customer_Uid(customer_uid) 
LIKE UPPER(:orders.dsp_name) 


What does this achieve (besides a little less typing)? 
Considerably better performance. We are now converting our 
customer name to upper case for comparison after the func- 
tion retrieves it. The query within the function will use the 
index on the customer UID to retrieve the name by rowid. 


Post-Query and Post-Change Triggers 
Another use for these functions is in post-query and post- 
change triggers. 


SELECT short_name 

INTO :orders.dsp_name 

FROM customers 
WHERE customer_uid = :orders.customer_uid; 
SELECT last_name 

INTO orders.dsp_name2 

FROM employees 


WHERE employee _uid = :orders.salesperson_ uid; 


can be replaced with: 


:orders.dsp name i= 

decode _customer_uid(:orders.customer_uid) ; 
:orders.dsp_ name2 := 

decode employee _uid(:orders.salesperson_uid) ; 


Not only is this simpler and more elegant code, but in a 
client/server environment, the database queries have been 
moved to the server, and network traffic is reduced. 
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CONNECT BY 
A common problem is that, when querying a hierarchical table 
using CONNECT BY, joins are not permitted, and therefore all 


the required information cannot be retrieved with a single query. 


For example: 


SELECT 
FROM 
WHERE 
START 
CONNECT 


a.org_ name, b.last_name 

org chart a, employees b 

a.manager_uid = b.employee uid 

WITH LEVEL = 1 

BY a.org_uid = PRIOR a.parent_org_ uid; 


will return an error “ORA-01437: cannot have a join with 


CONNECT BY”. 


Using the function shown in Figure 4, this problem is easily 
resolved with the following query: 


SELECT org name, decode employee _uid(manager_uid) 
FROM org chart 
START WITH LEVEL = 1 
CONNECT BY org_uid = PRIOR parent_org_uid; 


Packaging the Functions 

It’s likely there will be many of these functions in an 
application, and packaging them offers real benefits — 
most importantly performance. When an element in a 
package is referenced for the first time, the entire package 
is loaded into the system global area (SGA). Also, the 
effort required to create functions is reduced, because 
only one public synonym (for the package) is required, 
rather than one for each function. Also, users need only 
execute privileges for the package. 


Figure 5 (the package specification) and Figure 6 (the pack- 
age body) illustrate how functions may be packaged. Note 
the use of the pragma to assert the purity level for each func- 
tion in the package specification. This is a necessary instruc- 
tion to the compiler to guarantee that the functions do not 
modify any database tables (WNDS) or any package variables 
(WNPS). If the pragma is omitted, attempts to embed the 


functions in SQL will result in an error. 


Moving the functions into a package changes the way in 
which they are called. The package must be referenced using 
dot notation. (i.e. package. function). For example: 


ORDER BY Decode Uid.Customer(customer_uid) ; 


Conclusion 

Stored functions and procedures offer a wealth of features 
and benefits not yet widely appreciated. They represent a 
move towards object-oriented implementation, and can make 
a significant contribution to performance gains. User-defined 
functions embedded in SQL can be used in the same way as 
built-in SQL functions, and add a degree of procedural lan- 
guage functionality to SQL. 


It is well worth the time and effort required for any developer 
to learn to use these powerful and productive new tools. Gal 


PACKAGE Decode _Uid IS 


FUNCTION Customer (p_In_Uid NUMBER) 
RETURN VARCHAR2; 
PRAGMA RESTRICT REFERENCES (Customer ,WNDS,WNPS) ; 


FUNCTION Employee(p_In_Uid NUMBER 
RETURN VARCHAR2 ; 
PRAGMA RESTRICT REFERENCES (Employee,WNDS,WNPS) ; 


END Decode _Uid; 


PACKAGE BODY Decode Uid IS 


FUNCTION Customer(p_Uid NUMBER) 
RETURN VARCHAR2 
IS 


return_value VARCHAR2(10) := ' UNKNOWN’; 


CURSOR Get_Short_Name IS 
SELECT short_name 
FROM customers 
WHERE customer_uid = p_Uid; 


BEGIN 


OPEN Get_Short_Name; 
FETCH Get_Short_Name 
INTO return_value; 
CLOSE Get_Short_nmae; 


RETURN return_value; 
END Customer; 


FUNCTION Employee(p_In_Uid INTEGER) 
RETURN VARCHAR2 
IS 
return_value VARCHAR2(20) := ' UNKNOWN’; 


CURSOR Get_Last_Name is 
SELECT last_name 
FROM employees 
WHERE employee _uid = p_In_Uid; 


BEGIN 
OPEN Get_Last_Name 
FETCH Get_Last_Name 
INTO return_value 
CLOSE Get_Last_Name; 
RETURN return_value; 
END Employee; 
END Decode Uid; 


Figure 5 (Top): A sample package specification. 
Figure 6 (Bottom): An example package body. 
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